home *** CD-ROM | disk | FTP | other *** search
/ Wild Blue Yonder 1: 50 Years of Gs & Jets / Wild Blue Yonder - Episode 1 - 50 Years of Gs and Jets (Digital Ranch) (Spectrum Holobyte)(1-107-40-101)(1994).iso / control / panel.dir / 00722_Script_722 < prev    next >
Text File  |  1994-08-29  |  599b  |  23 lines
  1. on executeButton buttonNum
  2.   global button, CDroot, landingLength, landingSound, machine
  3.   
  4.   set buttonCast = the number of cast "button zone" + buttonNum
  5.   set the castNum of sprite button = buttonCast
  6.   updateStage
  7.   set buttonName = the name of cast buttonCast
  8.   
  9.   if buttonName <> "quit" then
  10.     clearLocalSprites
  11.     go to frame string( machine & buttonName )
  12.   else
  13.     
  14.     stopAmbience
  15.     set the volume of sound 1 = 255
  16.     sound playFile landingChannel, CDroot & landingSound
  17.     repeat while soundBusy( 1 )
  18.     end repeat
  19.     quit
  20.   end if
  21.   
  22. end executeButton
  23.